SEITE 



i 


SC CgPIE^EN DEP C3MPILFP-AENDEPUNGEN 


g 


SJ0B 


3 


SDELETEj DJ<F> 


/> 


SPACK, DJ 


5 


$C0PY*VS.» DJC F) 


6 


SCC=DJ( F) 


7 


END 
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SEITE 1 



i $C DJ(FBEF) ERSTELLUNG DE? BEFEHLSSTREI FENS 

2 SJ0E 

3 3FBEF 

4 $CC=XX(FJX) 

5 EN D 



XX (FB 


EF) 


1 




2 




3 




4 




5 




6 




7 


1000 


8 




9 


1001 


10 




1 I 


1002 


12 




13 




14 


2000 


15 




1 6 


2001 


17 




18 


2002 


19 




20 




21 


1009 


2? 




23 




24 




25 




26 


1003 


27 




28 


1004 


29 




30 


1005 


31 




32 


1006 


33 




34 


1007 


35 


1 


36 




37 


1008 


38 




39 





SEITE 



DIMENSI0W IC0PC 4)*MPHAC 28) 

DATA I PAT/ 3 1808/ 

DATA MPHA/'Ol ' > ' 02 '* * 3 ' * ' 04 '* ■ 05 ' * '06' > "07 • , '08 • , » 09 • j 
1•10 , , , 11 , .» , 12 , .» , 13 , .> , 14 , > , 15'* , 16 , >M7 , , , 1S , *•20 , .^ , 21 , * 
2'22 , > , 23 , .»'24*.» , 25•.» , 26 , .» , 27 , > , 28 , .» , 29 , / 

VRITEC7, 1000) 

F0PMATC'GEBE C0PE-GP0ESSE IN A4') 

PEADC7, 1001) I C0H 

F0RMATC4A1) 

WFITEC2-, 1002) 

F0PMATC'$C DJ(F> C0MPILEP AENDEPUNGEN ' / ' SJ03' ) 

IAD=IC0P( 1 )+256 

VPI TEC 2.. 2000) I PAT 

F0PMATC •$SI=DS(8F001> VSEDIT'/Al *FZZ50+1* 1 ' ) 

VFITEC 2*2001 ) IAD.. IPAT 

F0PKATC ' MDX L3 P0LRX-/ * Al * 00 4* /Al ' C=Y • ) 

VPITE(?*2002) 

F0PMATC ' SDELETE, D5< 8F001 ) • / * SPACK, DS • / ' SC0PY^"S> DSC 8 FOO 1 ) 7 

D0 1 M=|;5 

WPITEC2* 10 09) 

F0PMATC ' $PACK, DS ' ) 

D0 1 1=1*14 

i:JD=I + 14*CM-l ) 

IPHA=MPHACIND) 

WPITEC2* 1003) I PHA 

F0PMATC ' $SI=DSC8F0'A2' ) ' /* SEDIT') 

VPI TEC 2* 1004) IPAT 

F0PMATC A 1 > 'MEMFY, 1 • ) 

VPITEC2* 1005) IC0P* IPAT 

F0PMATC 'MEMP.Y ECU / ' 4A1 /Al ' C=Y • ) 

WPITECS* 100 6) I PHA 

F0PMATC * $DEL£TE>DSC8F0 , A2 , ) ') 

T-JPITEC2* 1007) I PHA 

F0PMATC ' SC0PY*VS* DSC8F0'A2' ) * ) 

C0NTI.MUE 

V ,r, ITEC2* 1008) 

F0PMATC ' SPACK* DS ' / * $CC=DJC8 FOOO) V ' END') 

ST0P 

END 



+ + + + + + + + + + + + + + -t- + + + + + ->- + + -«--i--*-- 



-t + + «--»•' 



•GP0ESSE IN A4 



DB0S CC 
? $ E0 D 

$J0E 

SCIC 

* ] 
* BUILD 

♦ El'ILD 
DE0? CC 
? $J0E 
? SL0AD 

GEBE C0 r? E 
? 3FFE 

ST0P 
DB0S CC 
? SC0PY*WS*TY 

$C DJ(F) C0MPILEP AENDEPUNGEN 

$J0B 

$SI=DS(8F001) 

SEDIT 

§FZZ50+1 j 1 

MDX L3 P0LPX-/4OO4 

@C=Y 

$DELETE*D!?C8F001) 

5PACK*DS 

$C0 t5 Y>U?*DS(8FOOl ) 

SPACK* DS 

$?I=D?C8F001> 

SEDIT 

6MEMPY* 1 

MEMPY EOU /3FFE 

@C=Y 

SDELETE, D?(8F001> 

$C0PY*U?^D?(8FOO1 ) 

SSI=DS(8F002> 

SEDIT 

§ MEMPY.. i 

MEMPY ECU /3FFE 

@C=Y 

SDELETE*DS(8F002> 

$C0PY*VS*DSC8FOO2) 

SSI=DS(8F003> 

SEDIT 

©MEMPY., 1 

MEMPY EOT.! /3FFE 

§C=Y 

$DELETE*DS<8F003> 

$C0PYjWS*DSC8FOO3> 

$SI=DS<8F004> 

**C0NS0LE INTEPPUPT 

**AT L0CATI0N 03AF 

DB0? CC 

? SDELETE/DJCFBEF) 

SPACK, DJ 

$C0PY/USjDJ(FBEF) 

SJ2E 

S?I=XX(FBEF> 

SLIST 

GEBE PP0GPAMMNAME 

XX C FBEF) 

GEBE STA^TZEILE 



7 
7 
7 
7 
? 



MAX 40 Z EI CHEN 
F0PMAT 15 



+++++++++++++++ 
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SEITE 1 
1 * GEHFRAU AUTHHATION, INC, ALL RIGHTS RESERVED 

4 1 PROGRAM NAME FqRTRAN PH-Ql 

5 * 

6 * MODEL, NUMBER HF0 01 

I I PURPOSE FORTRAN IinPUT PHASE 

3.0 I PROGRAMMER UlCK WALL^ANN, MOD^-MARK E L F' I E L D 

ll ***************** REVISION l^IbT ************** 

JJ J R V DATE SCO 3Y RtAbON ^CHANGE 

15 * " ----------- 

17 I 01 11/16/70 RPH INTJAU RELEASE 

* t . J .*^.*********#******************'** 

-iq *************************"*** 

^^* *.».**•************************** 
2 *************************"-_- 

21 * GA IB/30 FORTRAN COMPILEK U5/Q1/7C 

22 *STATUS - VERSION 1, MOU I F I OAT ION 

23 *rUNCTlON/OPERATlON 
? 4 * * READS THE CONTROL «fCuRUS, ^AND^ SETS^ 

25 * 

26 * 

27 * 

28 * 

29 * 

30 * 

31 * 

32 * 
33 
34 

II * INP * T I N PUT IS \'U CONTROL AND bOURCfc STATEMENTS 

37 * ENTERED T-'ROUQH LOGICAL UNIT 1 

38 *OUTPUT- 1M _ K 
•*9 * * LISTING 0! LOGICAL UNjT 5 

40 * CONTROL RECORDS, AND UF ALL SOURCE 

,< „ STATEMENTS IF SO REQUfcSTEU, 

\\ I * IrjEORMAHON FOR THE^HER PHASES DEALING 

ll ! WITH THE CURRENT COMPILATION STORED IN *"". 

44 * * SOURCE STATEMENTS ^ITh RAWTjALLY COMPLETED 

45 * IDS STORED IN THE STRING ARfcA, 

46 ^EXTERNAL. REFERENCES- 

47 * * SUBROUTINES « L, 1 

48 * * COMMUNICATIONS AREAS . FIXED A«EA 

49 * * OTHER FORTRAN PHASES - nOnE 

50 *EXITS- 

51 * N0RI ^^" T Is HADE THROUGH THE INTERPHASE 

l\ * ROLLER SUBROUTINE «ITH A PEUUEST TO ENTER 

II I pSaSE 2 . THIS EXI1 IS MADE AFTER THE =ND 

53 * STATEMENT IS ENCOUNTERED, 

•5 * ERROR- CARD fcNt ;ouNTEHED- 

r« FXIT I* MA D F THROUGH THE INTERPHASE 

^9 ! ROUER SUBROUTINE WITH A RE«UfcST TO ENTER 




*ENTRY f P0INTS- tereu ^ ^ ?Au Fk[)m yHE SUPE p VIS3 R 



SEITE 



60 
61 
62 
63 

6 4 
65 
66 
67 
68 
69 

7 
■'1 
72 
73 
7 4 
7ip 

76 

7 7 

78 

7 9 

8 

ai 

a a 

8 3 

84 
85 
R6 

8 7 
88 
R9 

9 
91 
9 2 
9 3 

94 

9!5 
96 
97 
98 
99 
10 

ini 

102 
103 
104 
105 
106 
107 
108 
109 
110 

111 
112 
113 
114 
115 
116 
117 

11« 
119 



♦TABLE 

* * 

* 

* 
* 
* 
* 
* 
* 
* 



* 
* 
* 
* 
* 
* 

* 
* 
* 

* 
* 

* 

* 

* 
* 
* 

# 
* 

* 
* 
* 

* 
* 

* 

* 

* 
* 
* 

* 



THE 

S/WORK 

FCOM 
S0F3 - 
EOFS - 
SQFST- 
SQFNS* 
SOFXT* 
SOFGTp 
FOFST- 
COMON- 
CSIZE- 
ERROR- 
FNAME- 
SORF m 
CCWD n 

BIT 
BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

IOCS * 

BIT 

B I T 

HIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BJT 

BIT 

BIT 

BIT 

BJT 

BIT 

BIT 

DFCNT- 

LCOMN 

ICCEK 



RECOVERY 
AREAS- 



PHASE 28 



START OF STRING 

El'JD OF STRING 

START OF SYMBuL TABLE 

START OF NOM«STATbMfcNT NUMBERS 

START OF SUBSCRIPTED TEMPORARIES 

START OF GENEKATEU TEMPORARIES 

EMD of symbol "table 

NFXT AVAlLABLt COMMON 
size OF COMMON 
OVERLAP ERROR SWITCH 
PROGRAM NAME 1 2 WORpS) 
SUBROUTINE^) OR KUNCT ION £*) 
CONTROL CARD WORD 

TRANSFER TkAqE 

ARITHMETIC TRACE 

EXTENDED 'PKECISION 

LIST SYMBOL TAtiLE 

LIST SUBPRuGRAM NAMES 

LIST SOURCfc PROGRAM 

onf word integers 

punch 

nonprocess prouram 



15 
14 

13 
12 

11 
10 



7 
6 



NOT 

NOT 
NOT 
NOT 
NOT 
NOT 
NOT 



USED 
USED 
USED 
USED 
USED 
USED 
USED 



IOCS CONTROL CARD WgRD 



15 

14 

13 
12 
11 
10 



CARD 

PAPER TAPE 
TYPEWRITER 



-i 
i 

f 

6 



4 

3 

1 



1443 PRINTER 
MAGNETIC TAPE 
KEYBOARD 
NOT USED 
DISK 

NOT USED 
NOT USED 
NOT USED 
NOT USED 

PLOTTER 
UNFORMATTEu DISK 

n UNFORMATTEU TAPE 

1EFINE FILE COUNT 

two WORDS FOK jNbKEL COMMON 

IOCS CONTROL CARD ERR n R WORD 
PROGRAMMED SWJTCHES- 
THE SWITCHES USED IN KHASfc 1 FOLLOW- 
IF NON-ZERO, THF SWITCH IS TRANSFER = T 
IF ZERO, THE SWITCH I i> NOkMaL " N 

* SWITCH 1- FZ951 

Na SOURCE CARD NO| YET ENCOUNTERED 
Ts SOURCE CARD ENgOgNfEKED 

* SWITCH 2- FZ952 

N= CONTINUATION CARD NOT ALLOWED 



SEITE 



120 * T= CONTINUATION CARD UK 

131 * * SWJTCH 3- FZ953 

122 * N* NO NORM CALCULaTjOn REQUIRED 

12*3 * T= STMNT REQUIRES NORM CALCUUAT I Of 

124 * * SWITCH 4" FZ954~ 

125 * Ns NORMAL 

126 * Ts EXCCSS CONTINUATION RECORDS 

127 * * SWITCH 5- TZ955 
126 * Ns NORMAL 

129 * T= STMNT NOT POSSjBL* A FORMAT STMNT 

130 * * SWITCH 6- FZ956" 

131 * Ns NORMAL 

132 * Ts FORMAT STMNT/ uON,*1 HEfHJVf: BLANKS 

133 * * SWITCH 7- FZ957 

134 * Ns ST^RE CHAR IN LEF'T OF WORD 

135 * Ts STORE CHAR IN RIGHT UF HQPD 

136 * * SWITCH 9- FZ959 

137 * Ns NORMAL 

13H * Ts DATA STATEMENT BEING PROCESSED 

139 * * SWITCH 14- FZ95E 

140 * M= END OF CTRL CAkD NuT ANTICIPATED 

141 * Ts NORMAL 

142 * * STRING AREA 

143 * THE STRI-JG AREA DURING COMPILATION CONTAINS 

144 * BOTH THE STATEMENT SiRjNG AND THE SYMBOL 

145 * TABLE, THE STATEMENT STKlNO IS BUILT BY 

146 * PHASE 1 IN AM ASCENDING CHAIN BEGINNING IN 

147 * THE LOW-ADDRESSED WOkDS UF THE STRING 
14H * AREA, THE SYMBOL TaBlE lb BURT DURING 
149 * THE COMPILATION PROCESS JN THE HIGH- 
ISO * ADDRESSED WORDS 0^ ThE STRjNG AKEA (THE 
1^1 * BEGINNING OF ROLRX- 5), THE ACTUAL START 

152 * AND END ADDRESSES OF THE STRING AREA MAY BE 

153 * FOUND IN ENTRYS JN FcOM, 

154 * * HEAD 

155 * START OF A 49 WORD AKEA CONTAINING THE PAGE 

156 * HEADING FOR LISTINGS, 

157 * * ROLRX 

3«5fi * START OF A 5Q WORD AkEa CONTAINING THE 

159 * rORTKAN INTERPHASE RULLEK SUBROUTINE, 

160 * * NOTE 

161 * THE AREAS HEAD, ROLRX, PHNTB AMD FCOM ARE 

162 * NOT OVERLAYS BY ANY SUBSEQUENT PHASE 

163 * UNTIL PHASE 28, RECOVERY, 

164 *ATTRIBUTES- 

165 * * ERRORS DETECTED BY THiS PHASE ARE NUMBERS 

166 * 1 AND 2 AND UTAPE/JDiSK BOTH SPECIFIED, 

167 *MOTES-N/A 

169 * ''° TME FOLLOWING PROGRAM CFZXXX) IS IN 

!70 * CORE ONLY UNTjL THE CONTKOL CARDS 

171 * A:?F ANALYZED, 

172 * SYSTEM EQUATES 

173 RFF LIO 

174 RFF F'IDMN 

175 REF BJLKA 

176 REF CORE 

177 REF FSOVL 

178 * P lASfc 1 EQUATtS 

***• MEMRY EQU /7FFK MAXiMyM CQRE SIZE 



SEITE 



180 
131 
182 
133 
18 4 
185 
186 

138 

139 
190 
101 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
20 3 
204 
205 
206 
207 
20H 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
2?4 

225 
226 
227 
22« 
229 
230 
231 
232 
233 
234 
235 
?36 
23 7 
238 
239 



PHSIZ 

OVERL 

FCOM 

PHNTB 

RQLRX 

FZZ50 



* 

FZ95E 

FZ9U 

FZ912 

FZ913 

FZ914 

FZ915 

FZ916 

FZ918 

FZ922 

FZ91A 

FZ919 

FZ920 
FZ921 
FZ003 
FZ004 



EQU 
EQU 
F.QU 
EOU 
EQU 
ORG 
LDX 
MDX 
NOP 
STX 
STX 
STX 
STX 
STX 
LDX 
STX 
LDX 
STX 
SLA 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
LDX 
STX 

8SI 

DC 

DC 

DC 

BSI 

DC 

DC 

DC 

BSC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

EQU 

SLA 

STO 

BSI 
S 

BSC 
S 



13 
L3 

L3 
L3 
L3 
L3 
L3 
L3 
L3 
L3 
L3 

L 

L 

L 

L 

L 

L 

L 

L 

U 

LI 



4*3 
MFM 
0\/E 
FCO 
PMN 
ROL 
CQR 
ROL 

FXO 

FXO 
FXO 

rxo 

FXO 

/FF 

FXO 

/30 

FXO 

16 

FXO 

FXO 

FXO 

FXO 

FXO 

FXO 

FXO 

Fl9 

E'JD 

snF 

OPE 

Lin 

/50 

CAR 



LIO 

/50 

CAP 



F10 

CQN 



,T 

• A* 

• L- 

• 5- 
.1- 



20 

RY 

RL 

M« 

TB 

RX 

E 

RX 

3 
4 
5 
6 
7 
FF 
8 
BF 
14 

9 

10 

12 

13 

11 

11 

15 

51 

MN 

S 

N 

01 
EA 



5 

EH 


STA 



,A 

,L 

,& 

,1 

.* 

. N 



MAXIMUM 
-PHS I Z PHA 
,22 FOK|RaM 
56 PHAbE TA 
-50 INTtRpHA 
-2*320 

XK3«ACTU 
-/3004" SET b 
PREVlQUb 
STAkT 01- 
STAKT of 
STAkT of 
START of 

END "OF b 
SET ADDK 
N£X| A^A 



PHASE SIZE 
SfcS 2-29 START 
COHMi TABLE 

ble 

SB CALL 

AL CURL SIZP 

YMBOL TABLE END 
INST SKIPS IF 32 
SYMBOL TABLE 
NON-STATEMENT V|0 
SUB^CH IRT TEMPS. 
GENERATED TEMPS 

YMBOL TABLE 

ESS OF 

ILABLE COMMON 



+ 1 



SET iQCb(CARD) 

set the following to ze^o 
size qf common 
overlap error switch 
subk0ut|nje or function sw 
control card switch wor3 
program name 
2nd wqru of name 

FILfc COUNT 
NORMALISE SWITCH 1 



STRING UASE 
INPUT ANu PRINT FILES 





* 
* 

16 
FZ95E 

F 7.6 

FZ911 

Fzooa,*. 

rz Q i2 



vlTS AND SWITCHES 
SWI I CM 14 
T TEST CONSTANT 
A TfcST 
L ThST 
E TEST 
I TtST 
TfcST 
* TfcST 
N TfcST 

P TfcST 

- FuR CU^TROL CARD FRR03 

LENGTH FOR CTL CARD COM'A 
PAGt RESTORE SWITCH 



NORMAL UE SWITCH 14 
GET FIRST NON-HUNK 
IS 1 H£ CHARACTER T 
BRANCH IF YE« 
IS I HE CHARACTER A 



CHA^ 



SEITE 5 



24 
241 
242 
243 
244 
245 
246 
24 7 
248 
249 
250 
251 
2? 2 
253 
254 

255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 

26a 

269 
270 
271 
27 2 
27 3 
27 4 
27 5 
276 

27 7 
278 
279 

28 p 
231 
232 
233 
234 
285 
286 
237 
288 
289 

20 
2^1 

292 
293 
294 
2<55 
296 
297 
2<>8 
2.99 



* 
FZ005 



FZ008 



FZ010 
FZ012 



FZ014 



FZQ16 



FZD18 



FZ020 



BSC 

S 

BSC 



BSC 
S 

BSC 

s 

BSC 

s 

BSC 

S 

BSC 

3 

BSC 

LD 
STO 

BSC 
LDX 
STX 
LDX 
BSC 
LDX 
STX 
LDX 
HDX 
LDX 
STX 

LDX 
BSI 
BSI 

S 

BSC 

BSI 

S 

BSC 

LDX 

STX 

LDX 

HDX 

S 

BSC 

LDX 

STX 

LDX 

HDX 

S 

BSC 

LDX 

STX 

LDX 

MDX 

S 

BSC 

LDX 

STX 

LDX 

MDX 



L FZ012,*- 

FZ913 

L FZ01 4 /*- 
F7914 

L FZ022,*- 

F2915 
L FZ0 24,*- 

FZ916 
U FZ052,*- 

rz9l,3 

L F10 3,*- 

FZ922 
L FZ1QQ,*- 

FZ91.A 

l rzo2i#*- 

bad cqntr 

FZ91.9 

i noo3*i 

L F10G3 
3 12 



L3 

L 
3 
3 

L3 

3 

3 

L3 

L 

L 

L 
L 



3 

3 

L3 



L 
3 
3 

L3 



L 
3 
3 

L3 



3 
L3 



FZ920 

F7971 
FZ056 

14 

FZ920 

FZ972 

FZ010 

3 

FZ920 

FZ981 

F Z 6 

FZ600 

F 7.923 

rzQ20,Z 

TZ600 

FZ924 

FZ016.Z 

9 

FZ9 2Q 

FZ982 

F Z 1 

FZ925 

rzoia,z 

11 

FZ920 
FZ983 

F Z 1 
F7926 

FZ005,Z 

13 
FZ920 

FZ984 
FZ010 
FZ927 

FZ005,Z 

o 

FZ920 

FZ985 

rzoio 



BRANCH if yes 
IS 1 HE CHARACTER L 
BKANCH IF YES 
IS THfc CHARACTER E 
BRANCH JF YES 
IS I HE CHARACTER I 
BRANCH IF YES 
IS IHE CHARACTER 
BRANCH IF YES 
IS THE CHARACTER * 
BRANCH IF YES 
IS CHARACTER N 
BRANCH IF YES 
IS CHARACTER P 
BRANCH IF YES 
OL'CaRD fcMTRY 
LUAu - ERROR INDICATOR 
PLACE M1MUS INTO CC REC3R 

PRJNT CARD IN ERROR AND 
GET ANOTHER, 
SET CHARACTER COUNT 
TO 12 

♦ransfektkace* 

go check }f valid control 

set chakacteh 

COUNT Tg 14 

*RJ IHMETICTRACE* 

GO CHECK 

SET CHARACTER 

COUNT TU 3 

♦ 1ST* 

GO CHECK, RETURN IF EQUAL 

GET NEXT NON-BLANK CHAR 

IS CHARACTER S 

BRANCH IF NO 

GET NEXT NON»BLANK CHAR 

IS CHARACTER Y 

BRANCH IF NO 

SET CHARACTER 

COUNT TU 9 

♦MBULTABLE* 

GO CHECK 

IS CHARACTER 

BRANCH IF NO 

SET CHARACTER 

COUNT TU 11 

*URCEpRUGRAM* 

GO CHECK 

IS CHARACTER U 

BRANCH TO ERROR IF NO, 

SET CHARACTER 

COUNT TU 13 

♦bpkogRamnames* 

GO CHECK 

IS CHARACTER A 

BRANCH 10 ERROR IF NO 

SET CHARACTER 

COUNT TU 2 

*LL* 

GO CHECK 



SEITE 



300 
301 
302 
303 
304 
305 
306 
3D7 
30 6 
309 
310 
o X * 
312 
313 
314 
31b 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
34 
341 
342 

343 
344 

345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 



FZ021 



FZ022 



* 

FZ923 

FZ924 

FZ925 

FZ926 

FZ927 

FZ928 

FZ930 

FZ931 

FZ932 

FZ933 

FZ934 

FZ935 

FZ936 

FZ93U 

FZ937 

FZ938 

FZ939 

FZ941 

FZ942 

FZ024 



FZ026 



FZ028 



FZ032 
FZ034 



LDX 
STX 
LDX 
HDX 
LDX 
STX 
LDX 
MDX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

Dr. 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

LDX 

STX 

LDX 

BSI 

BSI 

S 

BSC 

SLA 

STO 

STO 

BSI 

s 

BSC 

S 

BSC 

S 

BSC 

S 

nsc 
s 

BSC 

S 

BSC 

S 

BSC 

S 

BSC 

LDX 

STX 

LDX 

BSI 



3 4 

3 FZ920 
L3 F797B 



3 

3 

L3 



Z010 
6 

29 20 
Z974 

zoio 
onstants 

n 
y 

;j-„o 

A-.S 

'4D 



3 3 
L3 F 
L3 F 
L F 
L F 

F 
L F 

1 
L F 

F 

L F 
F 

L F 
F 

L F 

F 
L F 

F 
L F 

F 
L F 

F 
L F 

F 
L F 

f 
L F 
3 1 
L3 F 
L3 F 
L F 

F 



P-.C 

T-,P 
K-„T 

D-„l 

U-,U 
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780 FRX05 EOU F?X0* + FRC4 

781 FRX06 EQU FRX05+FRQ5 

782 FRX07 EQU F9XQ6 + FFIQ6 

783 FRX08 EQU FRXQ7+FR07 
734 FRX09 EQU FRX0«*FRQ8 

785 FRXlO EQU FRX09*FRQ9 

786 FRXll EQU FRX10+FR10 

787 FRX12 EQU FRX1UFRH 

788 ERX13 EQU FRX12+FR12 

789 ERX14 EQU FRX13+FR13 

790 FRX15 EQU FRX14+FR14 

791 FRX16 EQU FRX15*FR15 

792 FRX17 EQU FRX16+FR16 

793 FRX18 EQU FRX1/+FR17 

794 FRX19 EQU F?X18*FR18 

795 FRX20 EQU FRX19+FR19 

796 FRX21 EQU FRX20+FR2Q 

797 FRX22 EQU FRX2UFR21 

798 FRX?3 EQU FRX22+FR22 

799 FRX24 EQU FRX23+FR23 

800 FRX25 EQU FRX24+FR24 
8Q1 FRX26 EQU FRX25+TR25 

802 FRX27 EQU FRX26+FR26 

803 FRX28 EQU FRX27+FR27 

804 FRX29 EQU TRX28+FR28 

805 ***** MpX FORTRAN PHASE NAMfc 

806 ORG PHNTB 

807 DC FRX02 

808 DC 320*FR02 

809 DC FRXQ3 

810 DC 32D*FR03 

811 DC FRX04 

812 DC 320*FR04 

813 DC FRX05 

814 DC 320*FRQ5 

815 DC FRXQ6 

816 DC 320*FR06 

817 DC FRX07 

818 DC 320*F'R07 

819 DC FRX0 8 

820 DC 320*FR08 

821 DC FRX09 

822 DC 320*FR09 

823 DC FRX1Q 

824 DC 320*FR10 

825 DC FRXll 

826 DC 3?0*FRH 

827 DC FRX12 

828 DC 320*FR12 

829 DC FRX13 

830 DC 320*FR13 

831 DC FRX14 

832 DC 320*FR14 

833 DC FRX15 

834 DC 320#FR15 

835 DC FRX16 

836 DC 320*F'R16 

837 DC FRX17 

838 DC 320*F'R17 

839 DC FRX18 



PHASE 

WOKu 

PHASE 

WORU 

PHASE 

WORU 

PHASE 

WORU 

PHASE 

WORU 

PHASE 

WORU 

PHASE 

WORU 

PHASE 

WORU 

PHASE 

WORU 

PHASE 

WORU 

PHASE 

WORU 

PHASE 

WORU 

PHASE 

WORD 

PHASE 

WORU 

PHASE 

WQRU 

PHASE 

WORU 

PHASE 



TAbLE* 

»02 Dl 
COUNT 
mQ6 Dl 
COUNT 
*04 Dl 
COUNT 

• 05 Dl 
COUNT 

• 06 Dl 
COUNT 

• 7 Ul 
COUNT 
»0b Dl 
COUNT 
*oy Dl 
COUNT 
»1U Dl 
COUNT 

• 11 Dl 
COUNT 

• 12 Dl 
COUNT 

• 13 Dl 
COUNT 

■ 14 Dl 
COUNT 

• 15 Dl 
COUNT 

• 16 Dl 
COUNT 

■ 17 Dl 
COUNT 
el« Dl 



*************** 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 

SK SECTOR 



SEITE 15 



840 
841 
842 
843 
844 
845 
846 
847 
840 
849 
850 
853, 
852 
853 
854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

664 

865 

866 

86 7 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

89? 

893 

894 

895 

896 

697 

898 

899 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

ORG 

BSS 

BSS 

8SS 

BSS 

BSS 

BSS 

BSS 

BSS 

BSS 

BSS 

BSS 

BSS 

BSS 

BSS 



FX001 
TX002 
FX003 
FX004 
FX005 
FXC306 
FX0 7 
FX008 
FX009 
FX010 

Fxnn 

FX012 
FXQ13 

* 
* 
* 

* 
* 
* 



FX014 BSS 

* 
* 

* 
* 
* 

* 
* 
* 

* 



320*F"R18 

FRX19 

320*FR19 

F^X20 

320*FR2C 

FRX21 

320*FR21 

FPX22 

FRX23 

3Z0*FR23 

FRX24 

320*F'R24 

FRX25 

320*FR25 

FRX26 

3?„0*FR26 

FRX27 

320*FR27 

F'^X2b 

320*FR28 

FCOH 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 



WORiJ COUNT 

PHAbE#l9 DISK SECTOR 

WQRu COUNT 

-■•--- -— SECTOR 



SECTOR 
SECTOR 
SECTOR 
SECTOR 



RI 
RI 

BI 
51 
BI 
BI 
EI 
BI 
BI 

BI 

BI 

BI 

BI 

BI 

RI 

PI 

B 

BI 

ei 
BI 
BI 

BI 
BI 



PHAbEs.20 DISK 

WORu COUNT 

PHAbE*2l DISK 

WORD COUNT 

PHAbEw22 DISK 

WQRu COUNT 

PHAbE-23 DISK 

WQRU COUNT 

PMAbE«24 DISK 

WORU COUNT 

PHAbE«25 DISK SECTOR 

WQRu COUNT 

PHAbE»2b DISK SECTOR 

WURU COUNT 

PHAbE«2/ DISK SECTOR 

WORD COUNT 

PHAbEp2B DISK SECTOR 

WORU COUNT 

FORTRAN CQMMUNICATIP 

STAKT 0(- STRING 

END "OF STRING 

STAKT Of SYMBOL TABL 

STAKT Oh NONpSTATEME 

STAkT OF SUBSCRIPT T 

STAKT OF GENERATED T 

END OF SYMBOL TABLE 

NEXT AVAILABLE COMMHN 

SJZfc QF* CU^flUN 

OV'EKUAP EKROH 

PROliRAN NAME 

2ND"WgRD UF HAf-E 

SU8n0yTjNE<»> OR FUR 

CONTROL CARD WORD 
15" TRANSFER TRACE 
ARITHMETIC TRAC 
EXTENDED PRECIS 
LlbT SYMBCU TAR 
LlbT SUBPROGRAM 
LlbT SOURCE PRO 
ONE WORD IMTEGE: 
S PUNCH 

/ nonpkocess RROGRA 

lOCb CONTROL CARD WC 
■ tc ' CARD 

pAHEK TAPE 
TYPEWRITER 
1443 PRINTER 
MAGNETIC TAPE 
KEYBQARD 
1442 PUNCH 

8 DISK 

7 NOT USFD 

6 NOT USED 

5 NOT U5EU 

4 NOT USED 

3 FLUTTER 

2 NOT USED 



NS ARE 



E 

NT MUM 

EMPDRA 

EMPDRA 



14 
13 
12 
11 
10 
9 



15 

14 
13 
12 
11 
10 



CTI!)N( 



E 
ION 

LE 

NAMES 
GRA^ 
RS 

M 

RD 
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90 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
91-5 
914 

915 
916 
917 
91H 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
94*5 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
95 7 
953 
959 



* 

FX015 

LCOMN 

ICCER 

SOF'S 

EOFS 

SDFST 

SOFNS 

SQFXT 

SOFGT 

EOFST 

COMON 

CSIZE 

ERROR 

FN'AME 

SORF 

CCWD 

IOCS 

DFCNT 

* 
CARD 



CAR01 
CAR02 



CAR03 



BSS 

BSS 

DC 

EOU 

EQU 

EQU 

EOU 

EOU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 
EQU 
EQU 
ORG 

DC 

ID 

BSC 

BSI 

DC 

DC 

Dr 

BSI 

DC 

LD 

SLA 

BSC 

BSI 

DC 

DC 

DC 

BSI 

DC 

STX 

LDX 

LDX 

LD 

AND 

BSI 

LD 

SRA 

BSI 

HDX 

MDX 

S 

BSC 

LDX 

LDX 

LD 

5 

BSC 

S 

BSC 



L 
L 



L 
L 



1 

X 

?. 

L2 



L2 



L 

LI 

L 



1 
2 

FX001 
FX002 

rxoo* 

FX005 

FK006 
FX0 7 

F X 8 
FXOOV 
FX01C 

rxon 

FX012 
FX013 

FXOl* 
EX015 
O'/ERL 

*.* 
ENJDSW 

Fi03J>,Z 

LIO 

/10 01 

CAREA 



LIO 

/F001 

FX013 

in 

CAR01,- 

LIO 

/2005 

CAREA 



LIO 

/F005 

CAR05*1 

72 

36 

CAREA 

CARX1 

CMVRT 

CAREA 

8 

C'-jVRT 

-1 

CAR02 

CARX2 

CARQ5,*- 

-4 

-67 

CAREB*73 

CARX3 

CAR0S+- 
CARX'' + 4 

CAR05.Z 



Rjr 1 UWOKMATTI D DISK 
BIT UNFORMATTED TARE 
FlUt COUMT 
INStsEL COMMON SIZE 
IOCS CONTROL CARD ERROR 
FCOm EQUIVALENCES 



* 

* 
* 

* 
* 

* 
# 
* 
* 
# 



CARU ROUTINE 



LAST WAb END 
REAu NEXT CAHD 



WAIT FOK TRANSFER 



NO bOyRUE LI^T 
LIST SOURCE 



WAJT FOK TRANSFER 

SAVfc Xl 

OUTPUT CHARACTERS 

WORuS Tu gONVEPT 

GET RJGHT BYTE 
CONVERT TQ EBCIDIC 



CONVERT TQ EBCDIC 

LOOK 

TfcSi FOK ,C 

NO fcNp iF COMMENT 



TEST FOK END CARD 

TfcSl FOK BLA^K 

PASS' BLANKS 

E,N # D 

NOT END CARD 





SEITE 
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960 




Hnx 


1 


X 




961 


CAR04 


MDX 




-1 
J. 




962 




MDX 




CAR03 


TES! LOUP 


963 




MDX 


1 


1 




964 




MDX 




CAB05 


NOT END CARD 


965 




STX 




EMDSW 


SET END FLAG 


966 


CAR05 


LDX 


LI 


*«.* 


RESTORE *\ 


967 




LDX 


L <*- 


CAREB+1 


X2 Pojnts to image 


968 




BS C 


I 


CARD 


EX If 


969 


ENDSW 


DC 




• «.* 


END" SWITCH 


970 


CARXl 


DC 




/FF 




971 


CARX2 


DC 








972 


CARX3 


DC 




• 




973 


CARX4 


DC 




♦ E-, 




974 




DC 




• '• " • 




975 




DC 




.D-i 




976 




DC 




/IFF 




977 


• 






ROUTINE 


TO CONVERT ASCII TO EFCDI 


978 


CMVRT 


DC 




* « «r 


ENTKANCt (A) lb CHAR 


979 




S 




C-iVXl 


/AQ 


980 




BSC 


L 


CMVQ3,+Z 


FORCE SPACE FOP ) /AO 


9R3, 




CMP 




C-IVX? 


/DA»/A0 


982 




MDX 




CNVQ3 


FORCE SP, FOB /DA 


983 




MPX 




* 




984 




SRT 




1 




985 




A 




C <VX3 


=CNVTB 


9B6 




STO 




C.KVQl 




987 




SLT 




17 


CARKY s LOW URPER 


988 




LD 


L 


*«* 


BfcT EBCDIC WORD 


989 


CNV01 


EOU 




*»1 




990 




BSC 




C 


EVEN JS RIGHT HALF 


9<?1 




SRA 




8 


GET LEFT HALF 


992 




AND 




CARXl 


GET CHAKACTEH 


993 


CMVC2 


STO 


LI 


CAREB 


STOKE EBCDIC CHAR, 


994 




MDX 


1 


-1 




995 




MDX 




• 




996 




BSC 


1 


C\'VRT 


EXIl 


997 


CNV03 


LD 




CARX3 


SPACE 


998 




MDX 




C1V02 




999 


CNVXl 


DC 




/AO 




1000 


CIVX2 


DC 




/DA-/A0 




1001 


CNVX3 


DC 




CVVTB 




1002 


* 






CONVERSION TABLES 


1003 


CNVTB 


EPC 




. S ($**)(+**f/|| 


10 4 




EBC 




.1032547698 >) , 


1005 




EBC 




,A*CB£DGFIHKJML0N, 


100A 




ERC 




.QPSRUTW 


VYX Z, 


10 7 


* 






I'lPUT AREAS 


1008 


CARFA 


DC 




4C 




1009 




BSS 




4", 


ASCII SUUKCE image 


1010 


CAREB 


DC 




7 2 




1011 




BSS 




72 


EBCiDjC IMAGE 


1012 


* 






MAIN LIME PKObRAM 


1013 


F1000 


BSI 


L 


CARD 


READ A CARD 


1014 


F10 01 


EOU 




F1O00 


READ A CARD 


1015 




STX 


2 


F1O03+1 


SAVfc XR2 


1016 




LD 


L 


F1951 


LOAU SWITCH 1 


1017 




BSC 


L 


FIDOS, Z 


BRANCH IF SW1 NOT Zl R 


101« 




LD 


2 





LOAu COLUMN 1 


1019 




S 


L 


F1963 


IS IT AN * 



SEITE IP 



1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

104Q 

1041 

1042 

1043 

1C44 

1045 

1046 

1047 

1048 

1049 

1059 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

105B 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

10 75 

1076 

1077 

1078 

1079 



F1003 



F1005 



F1006 



F1007 



F1008 



F10O9 



F 1 G 1 



noil 



F1012 



BSC 
STX 

BSC 

UDX 

LD 
BSC 

UP 

s 

BSC 

STO 

MDX 

LP 

S 

BSC 

s 

BSC 

STO 

STO 

STO 

LDX 

STX 

LD 

EQU 

S 

BSC 

MDX 

MDX 

MDX 

MDX 

STX 

SLT 

STO 

LD 

STD 

LDX 

LD 

S 

BSC 

S 

BSC 

LD 

BSC 

MDX 

BSC 

S 

BSC 

STX 

LDD 

RTE 

STO 

LD 

AND 

OR 

STD 

MDX 

MDX 

MDX 

LD 

BSC 

LDD 



FZKQ6, 

F1951 
T1C05 



*••»* 



L 
L 

L 

F1951 
L F10Q1,*- 
2 

F1967 
L Fi006,Z 

Fi95Z 

F1001 

2 5 
Fl96b 

L **3,*- 

F1966 
L F1016,Z 

F1954 
L F1959 
L F19B4 

3 72 

2 * + l 
L *-* 

**1 

F1965 
L **5,Z 
L Fl007,l 

3 -1 
F10Q7-1 

Finoi 

F1952 

32 

F1969 

F 1962 

F19 72 
3 5 
2 

F1965 
L F1012,*- 

F1966 

l r i o i o , z 

F1969 

L F1011 # Z 

F1012 
L F1030,+ 

F1968 

L F1030.-Z 
F1969 

F1972 
26 

F1972 
? 

F1961 
F1972 
F1972 

2 1 

3 -1 

F 1 9 

F1969 

U F1013.+- 

F19 72 



BRANCH iF YES 
TAG SWITCH 1 



(CONTROL ;D 



LOAD SWITCH 1 

GO KEAD A CARD IF NOT set 

IS 1HJS A COMMENT CARD 

BRANCH iF MO 

NORMALISE SWITCH 2 

GET NfcXT CARD 

TESl FOR gONTIMUATlON CAR 

BRANCH IF BLANK 

BRANCH IF NON-ZERO 
NORMAL UE SWITCH 4 
MORMALl^E SWITCH 9 
CLEAR DATA A^EA 
INITIALIZE TO TEST f'OR 
BLANK CARL). 
LOAD CARD COLUMN 
LABEL FUR STANDARDS 



BRAN 

INCH 

KICK 

CHEU 

BLAN 

SET 

INI I 

TO C 

SfAT 

nOmQ 



CH |F COLUMN NOT BLAN 
EMENT TO NEXT COLUMN! 
COUNT* SKIR IF ZER3 

COLUMN 



K NEXT 
K CARp, 
SWITCH 
IAL1ZE 

OLLtCT 

EMENT 

ERS, 



GET NEXT 



CHEUK IF COL !J Mf BLANK 

BRANCH iF BLANK 

IS gO^UMN ZERO 

BRANCH iF NON-ZERO 

IS JT A LEADING ZERO 

BRANCH iF NO 

YES, READING ZERO 

BRANCH iF NON-NUMERIC 



BRAN 

INDi 

ADD 

DIGl 

TO 

ST A I 

NUMB 

* 

* 

GO 1 

SKIP 

GET" 

IS } 

BRAN 

NURM 



CH IF NON-NUMERIC 
CATt VALID DIGIT 



EMF.NT 
FR 



NfcXT CHARACTER 

JF THROUH 
NfcXT DIGIT IF NOT 
HERE A STATEMENT NO, 
CH IF NOT 



SEITE 19 



1080 

10*1 

1082 

10 8.5 

1084 

1085 

10R6 

1087 

108H 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

109H 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

111H 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

113« 
1139 



F1013 



F1014 



F1015 



* 

F1951 

F1952 

F1953 

F1954 

F1955 

F1956 

T1957 

F1961 

F1962 

F1963 

F1965 

F1966 

F1968 

F1969 

F1970 

F1967 

F1971 

F1972 

F1P16 



RTE 

SLT 

BSC 

STO 

SRA 

SLT 

STO 

MDX 

SLA 

STO 

LD 

BSC 

BSI 

STX 

STX 

SLA 

BSI 

LD 

BSC 

LD 

OR 

STO 

LD 

BSI 

LD 

BSI 

SLA 

STO 

STO 

STO 

STO 

MDX 

DC- 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
BSS 
DC 
DC 
LD 
BSC 
ID 
BSC 
MDX 
LD 



L 
I 



L 

L 



16 

1 

*-3 , <- 

F1972 

15 

15 

F1972+1 

1 

16 

F"l971 

Fl95s5 

Fl014,+- 

F1029 

Fj.953 

(XR1 POIN 

F1970 

16 

F1050 

F196S> 

F1015,+- 

Fj.970 

F1962 

F1970 

F19 72 

F105C 

Fl972*l 

F1050 

16 

F1955 

F1956 

F1957 

F1991 

F1017 

CONSTANTS 







c 







/Q0 3F 

1 

. *• 

/ 4 

/F0-/40 

/F9-/F0 



n 

. I.- 









F1954 

Fl001,Z 

Fj.952 

F1031,** 

ri971,l 

F'19 71 



STATEMENT 
NUMbER 
CPACKfcD 
6"BiTS HEN 
DtC'lMAU'CHARACTFR) 
*' 
* 

GET NfcXl CHARACTER 
NORMALIZE 
CHAKACTtR COUNT 
LOAU SWITCH 3 
BRANCH IF SWITCH 3 
COMPUTE NgRM 
SfcT 'SW ITCH 3 
TS'A'l soksj 



!QT 



GO 

LOA 

BRA 

IND 

STA 

NUM 

PUT 

STA 

NUM 

* 



10 PUT ID WORD 

U STATEMENT NO, JMD 

NCH IF NO STATEMENT MO 

iCATfc 

TEMENT 

BER 

TEMENT 

bER, 



NORM 
NORM 
NORM 
NORtf 
CONT 
, STQ 
SW J I 
SWJT 
SW jf 
SW I f 

sw'iT 
swj? 

swjf 

MASK 

USEh 

*~Tfc 

EBC 

EBC 

DIG* 

STAT 

ID b 

C Tt 

CHAR 



ALU 
ALU 

ALU 
ALU 
iNUfc 
RA 

CH 
CH 
CH 
CH 

ch 

CH 
CH 
pOK 

UL C 
ST 

8LAN 
ZERU 
T Tt 

emen 

AVE 

ST 
AcTfc 



E SWITCH 5 

E SWITCH 6 

E SWITCH 7 

E FCCT 

ANO SWITCHES 



STM NO, PACKIN3 
ONSTANT 

K TEST 
TEST 

ST 

T NO j TEST 

WQRD 
R COUNT 



SET 



STAlEMENT MUMBtF 

COLLECTION AREA 

LOAy SWITCH 4 

BRANCH JF SW 4 

LOAU SWJTCH 2 

BRANCH 10 ERROR IF HOT SE 

INCkEmEnT CHARACTER COUMT 

ERRUR IF COUNT JS GREATER 



SEITE 20 



1140 
1141 
1142 
114.3 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 

HBO 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 

1101 

1102 
1193 
1194 
1105 
1196 
1107 
1198 
1109 



F1017 

F101B 

F1019 
F1020 

F1021 
F1022 



F1023 



F1024 



F3.025 
F1026 



F1027 



S 

BSC 

MDX 

LDX 

LD 

BSC 

LD 

S 

BSC 

MDX 

MDX 

MDX 

BSC 

LD 

BSC 

MDX 

LD 

BSC 

LD 

SLA 

OR 

BSI 

STX 

MDX 

SLA 

STO 

LD 

AND 

OR 

STO 

LD 

S 

B?C 

LD 

BSC 

MDX 

LD 

A 

STO 

LD 

S 

BSC 

STX 

MDX 

LD 

S 

BSC 

MDX 

LD 

OR 

STO 

STX 

MDX 

LD 
S 

BSC 
LD 
S 
BSC 



L 
L 



L 
L 



ri9 

no 

6 

66 
F19 
F10 


Fl<5 

FlO 
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♦THAN 6, 

* " 

MV KT Tu CD COLUMN SEVEN! 
IN I 1 ULlZt TO PACK RECORD 
LOAD SWITCH 6 
BRANCH IF SWITCH 6 SET 
IS gOLUMN BLANK 

BRANCH IF NOT BLANK 
I NCR TO NEXT COLUMN 
SKJH jF WHOUt: CARD CHEC<E 
CHECK NfcXT COLUMN 
REAU NEXT CARD 
LOAU S^JTCH 9 
BRANCH IF SWITCH 9 SET 
CUA'i'A = CDATA + /io 
LOAu SWUCH 7 
BRANCH IF SWITCH 7 SET 
PUT 
LEFT 

CHARACTER, 

•*• 

SET SWITCH 7 

GET NEXT CHARACTER 
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SWITCH 7 
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RIGHT 
CHAKACTfcR 

LO CDATA 

BRANCH IF EQ TO /4Q 

LOAU SWITCH 5 

BRANCH IF SWITCH 5 SET 
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25,+- BRANCH IF YE^ 

55 TAG SWITCH 5 
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92 
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70 SET 
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SEITE 
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TAG SWITCH 9 


1201 




MDX 




F1024 


CQNl iN'Jfc WITH PACK RTN, 
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CONSTANTS 


, WOKK AKEaS AND SWITCHES 


1203 


F1981 


DC 




/C4C1 


DA 1 EST 


1204 


F1982 


DC 




/E3C1 


TA TEST 


1205 


F1983 


DC 




/7D 


QUOfE TbST 


1206 


F1984 


DC 
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DATA WOKK AREA 
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F1959 


DC 




*m* 
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1208 


F1028 


LD 
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IS CHARACTER A QUOTE.; 


1209 




S 




F1983 




1210 




BSC 


L 


F1022,Z 


BRANCH IF NO 


1211 




LD 




F 3.956 


LOAU SWITCH 6 


1212 




EOR 




* 


REVfcRSE SWITCH 6 


1213 




STO 




F1956 


STOKE 


1214 




MDX 




F1022 


CONTINUE 
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LD 


1 


-1 
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L 


* + 2,Z 


BLANKS 
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1 
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1221 
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1 


Fj.986 
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1223 




S 
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* 
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I 
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* 


1226 
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I 
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I 
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RETURN 


1228 


* 






CONSTANTS 
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6 


USEf-UL CONSTANT 


1230 
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1231 


F1987 
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ERNU 


1232 


F1988 


DC 




/A00B 


EKRgR la 


1233 


F1989 


Dn 







OVEKLAP counter 


1234 


F1990 


DC 




/C6D6 


FQ 


1235 




DC 




/D9D4 


RM 


1236 




DC 




/C1E3 


AT 


1237 




DC 
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FORMAT iD WORD 


1238 


F1991 
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FORMAT COUNT 


1239 
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DC 




3 
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1240 
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DC 
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1241 
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DC 
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1242 
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DC 
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DC 
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3 
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TJ 
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O 


2 
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3 
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LD 


L 
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I 
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F1987 
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L 
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